INPUT "HOW MANY:",A
A -> DIM L1
FOR(X,1,A
0 -> B
LBL Z0
DISP "1.A","2.B","3.C","4.D","5.E","6.F","7.MORE"
INPUT "NUMBER:",C
IF C=1:GOTO 0A
IF C=2:GOTO 0B
IF C=3:GOTO 0C
IF C=4:GOTO 0D
IF C=5:GOTO 0E
IF C=6:GOTO 0F
LBL Z1
DISP "1.G","2.H","3.I","4.J","5.K","6.L","7.MORE"
INPUT "NUMBER:",C
IF C=1:GOTO 0G
IF C=2:GOTO 0H
IF C=3:GOTO 0I
IF C=4:GOTO 0J
IF C=5:GOTO 0K
IF C=6:GOTO 0L
LBL Z2
DISP "1.M","2.N","3.O","4.P","5.Q","6.R","7.MORE"
INPUT "NUMBER:",C
IF C=1:GOTO 0M
IF C=2:GOTO 0N
IF C=3:GOTO 0O
IF C=4:GOTO 0P
IF C=5:GOTO 0Q
IF C=6:GOTO 0R
LBL Z3
DISP "1.S","2.T","3.U","4.V","5.W","6.X","7.MORE"
INPUT "NUMBER:",C
IF C=1:GOTO 0S
IF C=2:GOTO 0T
IF C=3:GOTO 0U
IF C=4:GOTO 0V
IF C=5:GOTO 0W
IF C=6:GOTO 0X
LBL Z4
DISP "1.Y","2.Z","3.SPACE","4.0","5.1","6.2","7.MORE"
INPUT "NUMBER:",C
IF C=1:GOTO 0Y
IF C=2:GOTO 0Z
IF C=3:GOTO 1A
IF C=4:GOTO 1B
IF C=5:GOTO 1C
IF C=6:GOTO 1D
LBL Z5
DISP "1.3","2.4","3.5","4.6","5.7","6.8","7.MORE"
INPUT "NUMBER:",C
IF C=1:GOTO 1E
IF C=2:GOTO 1F
IF C=3:GOTO 1G
IF C=4:GOTO 1H
IF C=5:GOTO 1I
IF C=6:GOTO 1J
LBL Z6
DISP "1.9","2.PERIOD.","3.START"
INPUT "NUMBER:",C
IF C=1:GOTO 1K
IF C=2:GOTO 1L
IF C=3:GOTO Z0
LBL 0A
B+1 -> B
LBL 0B
B+1 -> B
LBL 0C
B+1 -> B
LBL 0D
B+1 -> B
LBL 0E
B+1 -> B
LBL 0F
B+1 -> B
LBL 0G
B+1 -> B
LBL 0H
B+1 -> B
LBL 0I
B+1 -> B
LBL 0J
B+1 -> B
LBL 0K
B+1 -> B
LBL 0L
B+1 -> B
LBL 0M
B+1 -> B
LBL 0N
B+1 -> B
LBL 0O
B+1 -> B
LBL 0P
B+1 -> B
LBL 0Q
B+1 -> B
LBL 0R
B+1 -> B
LBL 0S
B+1 -> B
LBL 0T
B+1 -> B
LBL 0U
B+1 -> B
LBL 0V
B+1 -> B
LBL 0W
B+1 -> B
LBL 0X
B+1 -> B
LBL 0Y
B+1 -> B
LBL 0Z
B+1 -> B
LBL 1A
B+1 -> B
LBL 1B
B+1 -> B
LBL 1C
B+1 -> B
LBL 1D
B+1 -> B
LBL 1E
B+1 -> B
LBL 1F
B+1 -> B
LBL 1G
B+1 -> B
LBL 1H
B+1 -> B
LBL 1I
B+1 -> B
LBL 1J
B+1 -> B
LBL 1K
B+1 -> B
LBL 1L
B+1 -> B
9-B -> L1(X)
END
PAUSE L1
prgmDECRYPT
FOR(X,1,DIM L1
39-L1(X) -> L1(X)
END